home *** CD-ROM | disk | FTP | other *** search
/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / graphics / turtle_2 / Procedures / SQUGRID < prev    next >
Encoding:
Text File  |  1991-08-04  |  1.9 KB  |  154 lines
  1. GRID
  2. DISPLAY 
  3. COLOUR 1
  4. CLEAR
  5. PEN UP
  6. BACKWARDS NM*INT(100/NM)
  7. RIGHT 90
  8. BACKWARDS NM*INT(155/NM)
  9. REPEAT 200/NM
  10. DOTS
  11. BACKWARDS 2*NM*INT(155/NM)
  12. CURSOR UP NM
  13. END REPEAT
  14. HOME CURSOR
  15. PEN DOWN
  16. COLOUR 3
  17. DISPLAY 
  18. END
  19.  
  20. NOGRID
  21. DISPLAY 
  22. COLOUR 0
  23. HOME CURSOR
  24. PEN UP
  25. BACKWARDS NM*INT(100/NM)
  26. RIGHT 90
  27. BACKWARDS NM*INT(155/NM)
  28. REPEAT 200/NM
  29. DOTS
  30. BACKWARDS 2*NM*INT(155/NM)
  31. CURSOR UP NM
  32. END REPEAT
  33. HOME CURSOR
  34. PEN DOWN
  35. COLOUR 4
  36. DISPLAY 
  37. END
  38.  
  39. DOTS
  40. REPEAT 2*INT(155/NM)
  41. PEN DOWN
  42. FORWARD 0
  43. PEN UP
  44. FORWARD NM
  45. END REPEAT
  46. PEN DOWN
  47. FORWARD 0
  48. PEN UP
  49. END
  50.  
  51. FOR
  52. FORWARD NM
  53. END
  54.  
  55. BAC
  56. BACKWARDS NM
  57. END
  58.  
  59. RIG
  60. RIGHT 90
  61. END
  62.  
  63. LEF
  64. LEFT 90
  65. END
  66.  
  67. DLEF
  68. LEFT 45
  69. FORWARD SQR(2*NM*NM)
  70. RIGHT 45
  71. END
  72.  
  73. DRIG
  74. RIGHT 45
  75. FORWARD SQR(2*NM*NM)
  76. LEFT 45
  77. END
  78.  
  79. INFO
  80. CLEAR
  81. DISPLAY
  82. COLOUR 1 
  83. PEN UP
  84. LEFT 90
  85. FORWARD 100
  86. RIGHT 90
  87. FORWARD 70
  88. WRITE SQUGRID
  89. BACKWARDS 15
  90. WRITE SQUGRID provides you with a square spotty grid
  91. BACKWARDS 10
  92. WRITE which is useful for some types of drawing.
  93. BACKWARDS 15
  94. WRITE Type NM 15 <return> then GRID <return> to draw
  95. BACKWARDS 10
  96. WRITE the grid. The dots will be 15 units apart.
  97. MORE
  98. END
  99.  
  100.  
  101. MORE
  102. BACKWARDS 15
  103. WRITE When you have finished drawing you can remove
  104. BACKWARDS 10
  105. WRITE the dots from your drawing by typing NOGRID.
  106. BACKWARDS 15
  107. WRITE It is usually a good idea to plan your work
  108. BACKWARDS 10
  109. MORE2
  110. END
  111.  
  112. MORE2
  113. WRITE carefully on paper beforehand.
  114. BACKWARDS 20
  115. WRITE Type IDEAS <return> for more ideas.
  116. BACKWARDS 20
  117. DISPLAY
  118. END
  119.  
  120.  
  121. IDEAS
  122. CLEAR
  123. DISPLAY
  124. COLOUR 1
  125. PEN UP
  126. LEFT 90
  127. FORWARD 100
  128. RIGHT 90
  129. FORWARD 70
  130. WRITE IDEAS
  131. BACKWARDS 20
  132. WRITE You can draw a grid with dots that are closer
  133. BACKWARDS 10
  134. WRITE together or further apart by first typing NM
  135. BACKWARDS 10
  136. WRITE followed by a number. For example, NM 20 <return>
  137. BACKWARDS 10
  138. WRITE then GRID <return> will draw a grid with dots
  139. BACKWARDS 10 
  140. MORE3
  141. END
  142.  
  143. MORE3
  144. WRITE that are 20 units apart.
  145. BACKWARDS 20
  146. WRITE Typing FILL before drawing on the grid can
  147. BACKWARDS 10
  148. WRITE produce some interesting effects.
  149. BACKWARDS 20
  150. WRITE 
  151. BACKWARDS 20
  152. DISPLAY
  153. END
  154.